home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / gfxfx / checkeys.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-20  |  390b  |  19 lines
  1.  
  2. program Check;
  3. { Check (extended) key, by Bas van Gaalen, Holland, PD }
  4. uses crt;
  5. var Ch : char;
  6. begin
  7.   clrscr;
  8.   writeln('Press keys for keycode, <escape> - 27 - for end...');
  9.   writeln;
  10.   repeat
  11.     Ch := readkey;
  12.     if Ch = #0 then begin
  13.       Ch := readkey;
  14.       write('0':5,ord(Ch):5);
  15.     end else write(ord(Ch):10);
  16.     writeln(': ',Ch);
  17.   until Ch = #27;
  18. end.
  19.